SuperStrict

Framework BRL.StandardIO

Import Otus.FS

Local d:TDir = TDir.Open(".")
Print d.GetPath()

For Local f:TFile = EachIn d
	Select f.GetExt()
	Case "txt"
		Print "Printing "+f.GetName()+"..."
		Local s:TStream = OpenStream(f)
		While Not s.Eof()
			Print s.ReadLine()
		Wend
	Default
		Print "Skipping "+f.GetName()+"..."
	End Select
Next
